home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00452.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  910 b   |  48 lines
  1. on startMovie
  2.   global note, tag, wait, ads, texts, syn, li, lig, tt, switch, bore, bridge, check, choose, s, drums, drumonly, t1
  3.   set note to 0
  4.   set the keyDownScript to "keydown"
  5.   unLoadCast()
  6.   preLoad(172, 174)
  7.   cursor(200)
  8.   put " " into field "display"
  9.   put " " into field "advert"
  10.   put " " into field "framerate"
  11.   set tag to 0
  12.   set wait to 0
  13.   set ads to the text of cast member 499
  14.   set texts to the text of cast member 498
  15.   set syn to 0
  16.   set li to 0
  17.   set lig to 17
  18.   set tt to 24
  19.   set switch to 0
  20.   set bore to 0
  21.   set bridge to 0
  22.   set check to 0
  23.   set choose to 3
  24.   set s to random(26)
  25.   set drums to 0
  26.   set drumonly to 0
  27.   chooser()
  28.   go("presync")
  29.   set t1 to 2
  30. end
  31.  
  32. on chooser
  33.   global ch
  34.   set ch to random(4)
  35.   if ch = 1 then
  36.     do("sel1")
  37.   end if
  38.   if ch = 2 then
  39.     do("sel10")
  40.   end if
  41.   if ch = 3 then
  42.     do("sel22")
  43.   end if
  44.   if ch = 4 then
  45.     do("sel18")
  46.   end if
  47. end
  48.